home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / pause.gf < prev    next >
Text File  |  1994-02-16  |  226b  |  20 lines
  1. function pause()
  2.   while(1)
  3.    pull keycmd
  4.    if(keycmd='c')
  5.      'c'
  6.      break
  7.    endif
  8.    if(keycmd='p')
  9.      'print'
  10.      'c'
  11.      break
  12.    endif
  13.    if(keycmd='q')
  14.      'c'
  15.      break
  16.      'quit'
  17.    endif
  18.  endwhile
  19. return
  20.